home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf
/
FileLister
/
FileLister
< prev
next >
Wrap
Text File
|
1989-07-02
|
1KB
|
62 lines
LIBRARY "intuition.library"
LIBRARY "graphics.library"
Rp&=WINDOW(8)
Wp&=WINDOW(7)
sn$="Workbench Screen - File-Lister - © 1989 Christoph Hust - Public Domain"+CHR$(0)
wn$="Wenn die Ausgabe anhält, bitte eine beliebige Taste drücken. "+CHR$(0)
CALL SetWindowTitles(Wp&,SADD(wn$),SADD(sn$))
CLS
PRINT " ----> AmigaBASIC - File-Lister <----"
PRINT
WHILE f$=""
IF f=1 THEN
CLS
PRINT "Inhalt"
PRINT
FILES
PRINT
PRINT "Taste !"
WHILE INKEY$="":WEND
CLS
END IF
LOCATE 3,1
LINE INPUT "Filename = ";f$
f=f+1
WEND
IF f$="*" THEN
CLS
SYSTEM
END IF
WIDTH 78
CLS
OPEN f$ FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1,x$
nl%=nl%+1
lines=lines+1
IF nl%=22 THEN
LOCATE 22,1
CALL Text(Rp&,SADD(x$),LEN(x$))
BEEP
nl%=0
wn$="File : "+f$+" Zeile : "+STR$(lines)+CHR$(0)
CALL SetWindowTitles(Wp&,SADD(wn$),-1)
WHILE INKEY$=""
WEND
CLS
ELSE
LOCATE nl%,1
CALL Text(Rp&,SADD(x$),LEN(x$))
x$=""
END IF
WEND
CLOSE #1
wn$="File : "+f$+" Zeile : "+STR$(lines)+" (Ende)"+CHR$(0)
CALL SetWindowTitles(Wp&,SADD(wn$),-1)
WHILE INKEY$="":WEND
CLS:SYSTEM